﻿Public Class Formulario_web14
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub ENVIAR_Click(sender As Object, e As EventArgs) Handles ENVIAR.Click
        Try
            SqlDataSource1.Insert()
            GridView1.DataBind()
        Catch ex As Exception
            Label1.Text = ("Error, No se a llenado alguno de los campos o el dato es incorrecto verifiquelos porfavor")
            Label1.Visible = True
            Label1.Font.Name = "arial black"
            Label1.BackColor = Drawing.Color.Red
            Label1.Font.Size = 10
        End Try
    End Sub

    Protected Sub BORRAR_Click(sender As Object, e As EventArgs) Handles BORRAR.Click
        TexMANTENIMIENTO.Text = ""
        TexPARTE.Text = ""
        TexFECHA.Text = ""
        TexCANTIDAD.Text = ""
        TexMANTENIMIENTO.Focus()


    End Sub
End Class